'ScriptLanguage=VBScript
Function XK3190_D2(pValue)
	On Error Resume Next 
	Dim a,i
	a=Split(pValue,"=")

	If Ubound(a)>1 Then
		For i=Len(a(1)) To 1 Step -1
			XK3190_D2=XK3190_D2 & Mid(a(1),i,1)
		Next 
		XK3190_D2=Val(XK3190_D2)
		XK3190_D2=XK3190_D2/1000
	End If
End Function